-- card: 2973 from stack: in
-- bmap block id: 4402
-- flags: 4000
-- background id: 2796
-- name: frontcard
----- HyperTalk script -----
on opencard
  hide card field about
end opencard



-- part 1 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=16 top=276 right=305 bottom=54
-- title width / last selected line: 0
-- icon id / first selected line: 902 / 902
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  go to previous card
end mouseUp


-- part 2 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=53 top=276 right=305 bottom=89
-- title width / last selected line: 0
-- icon id / first selected line: 26425 / 26425
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  go to next card
end mouseUp


-- part 3 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=53 top=304 right=333 bottom=89
-- title width / last selected line: 0
-- icon id / first selected line: 29114 / 29114
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  visual effect iris close
  pop card
end mouseUp



-- part 4 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=16 top=304 right=333 bottom=54
-- title width / last selected line: 0
-- icon id / first selected line: 21449 / 21449
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: First
----- HyperTalk script -----
on mouseUp
  go to first card
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=3 top=146 right=168 bottom=159
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Registration
----- HyperTalk script -----
on mouseUp
  ask "What is the name of the product?"
  push card
  visual effect dissolve
  go card it
  if the result is not empty then
    answer "Sorry, couldn't find that.  Check your spelling."
    exit mouseup
  end if
  put field productname into product
  put field currentversion into version
  put field regprice into price
  domenu New Card
  put the date into field regdate
  put product into field productname
  put version into field currentversion
  put price into field regprice
  answer "Enter registrant information."
end mouseUp



-- part 6 (button)
-- low flags: 80
-- high flags: 8003
-- rect: left=3 top=208 right=230 bottom=159
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Print Mailing Labels


-- part 7 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=3 top=242 right=264 bottom=159
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Update Totals
----- HyperTalk script -----
on mouseUp
  show card field patient
  set the cursor to 4
  put 0 into line 1 of card field incometotal
  put 0 into line 1 of card field expensetotal
  put 0 into line 1 of card field netincome
  set lockscreen to true
  global sum
  put 0 into sum
  go card master
  get the name of bkgnd
  put it into temp
  put it into temp1
  repeat while temp1 = temp
    if field regname <> "MASTER" then
      add field regprice to sum
    end if
    go next
    get the name of bkgnd
    put it into temp
  end repeat
  go card frontcard
  set lockscreen to false
  put sum into line 1 of card field incometotal
  set lockscreen to true
  put 0 into sum
  go card expenses
  get the name of bkgnd
  put it into temp
  put it into temp1
  repeat while temp1 = temp
    add field expenseamount to sum
    go next
    get the name of bkgnd
    put it into temp
  end repeat
  go card frontcard
  set lockscreen to false
  put sum into line 1 of card field expensetotal
  put 0 into line 1 of card field netincome
  add line 1 of card field incometotal to line 1 of card field netincome
  subtract line 1 of card field expensetotal from line 1 of card field netincome
  beep
  hide card field patient
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=88 top=276 right=333 bottom=134
-- title width / last selected line: 0
-- icon id / first selected line: 20689 / 20689
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  visual effect iris close
  go home
end mouseUp



-- part 9 (field)
-- low flags: 81
-- high flags: 2007
-- rect: left=165 top=80 right=267 bottom=504
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: about


-- part 10 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=3 top=80 right=102 bottom=159
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Product
----- HyperTalk script -----
on mouseUp
  push card
  visual effect dissolve
  go card MASTER
  domenu New Card
  put "MASTER" into field regname
  ask "What is the name of the new product?"
  put it into field productname
  set name of this card to it
  ask "What is the current version number?"
  put it into field currentversion
  ask "What is the price?"
  put it into field regprice
  put the date into field regdate
  visual effect dissolve
  pop card
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=3 top=102 right=124 bottom=159
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Version
----- HyperTalk script -----
on mouseUp
  ask "What is the name of the product?"
  push card
  visual effect dissolve
  go card it
  if the result is not empty then
    answer "Sorry, couldn't find that.  Check your spelling."
    exit mouseup
  end if
  ask "What is the new version number?"
  put it into field currentversion
  put the date into field regdate
  visual effect dissolve
  pop card
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=3 top=178 right=200 bottom=159
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Expense Input
----- HyperTalk script -----
on mouseUp
  push card
  visual effect "venetian blinds"
  go card EXPENSES
  domenu New Card
  put the date into field date
  put "Software/Development Tools - Shareware Accountant" into field expenseitem
  put "Francis S. Patrick, 721 E. Brookside Lane" into line 2 of field expenseitem
  put "Somerville, NJ  08876" into line 3 of field expenseitem
  put 24 into field expenseamount
  put "Check #" into field paymentmethod
  answer "Enter new info over shareware reminder."
  answer "Or record it if you are paying up now."
end mouseUp



-- part 13 (field)
-- low flags: 01
-- high flags: 2004
-- rect: left=280 top=284 right=316 bottom=349
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: incometotal


-- part 14 (field)
-- low flags: 01
-- high flags: 2004
-- rect: left=351 top=284 right=316 bottom=420
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: expensetotal


-- part 15 (field)
-- low flags: 01
-- high flags: 2004
-- rect: left=421 top=284 right=316 bottom=503
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: netincome


-- part 17 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=3 top=124 right=146 bottom=159
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Price
----- HyperTalk script -----
on mouseUp
  ask "What is the name of the product?"
  push card
  visual effect dissolve
  go card it
  if the result is not empty then
    answer "Sorry, couldn't find that.  Check your spelling."
    exit mouseup
  end if
  ask "What is the new price?"
  put it into field regprice
  visual effect dissolve
  pop card
end mouseUp



-- part 18 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=464 top=21 right=60 bottom=505
-- title width / last selected line: 0
-- icon id / first selected line: 14767 / 14767
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Tell Me About...
----- HyperTalk script -----
on mouseUp
  show card field "About"
end mouseUp


-- part 19 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=159 top=224 right=281 bottom=365
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: patient


-- part contents for card part 13
----- text -----
0
REVENUES

-- part contents for card part 14
----- text -----
0
EXPENSES

-- part contents for card part 15
----- text -----
0
NET INCOME

-- part contents for card part 9
----- text -----
•••••••••  Shareware Accountant  •••••••••
                 ©1987  Francis S. Patrick

Distributed via Shareware . . . Try it.  If you like it and use it, you are honor-bound to send $24 to:

   Francis S. Patrick
   721 East Brookside Lane
   Somerville, NJ  08876

If you have no use for it, pass it along to a friend, and erase it from your disks.  Registered users will receive the latest version by return mail.

••••••••••••  Instructions  ••••••••••••
Shareware Accountant is designed to assist the small developer and supporter of software distributed through the shareware system.

While software designers are undoubtedly bright, detail-oriented folks, many may lack the time or mindset to "take care of business."  Shareware Accountant will help get that side of the effort organized in two ways.

The top four buttons on the left handle a product registration database, creating a master card for a new product, changing version numbers, changing prices, and creating record cards of registered users for your products respectively.

The Expense Input button creates an expense card documenting where your money goes (how much, when, for what, and how you paid).  The expense input card simplifies record keeping with pictorial buttons that help speed the input of expense data (description and payment method info).

The Update Totals button maintains a running tally of the financial gain/loss from your endeavors.

-- part contents for card part 19
----- text -----
Be Patient.  If you've been selling successfully, this may take a few moments.